home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / PAQUI.ZIP / aliases.ini next >
INI File  |  1996-12-13  |  25KB  |  581 lines
  1. [Aliases]
  2. n0=pn notice $$1 ½^P-A-Q-U-I^ PrivNotice╗ *2
  3. n1=op mode # +ooo $$1 $2 $3
  4. n2=dop mode # -ooo $$1 $2 $3
  5. n3=j join #$$1 *2
  6. n4=p part #
  7. n5=t topic # *1
  8. n6=n names #$$1
  9. n7=w whois $$1
  10. n8=k kick # $$1
  11. n9=q query $$1
  12. n10=hop part # | join #$$1
  13. n11=send dcc send $1 $2
  14. n12=chat dcc chat $1
  15. n13=;½ Li0n ╗ Aliases, function keys and identifiers ( in no particular order =)
  16. n14=/test /titlebar $tbar(test,test.tb) | /.timer 21 1 /titlebar $!tbar(test) | /.timer 1 30 /titlebar %default.tb
  17. n15=/song /titlebar $tbar(song,song.tb) | /.timer985 0 3 /titlebar $!tbar(song)
  18. n16=aremini remini *1
  19. n17=join {
  20. n18=  if ($2 != $null) { set %chankey. $+ $1 $2 }
  21. n19=  join *1
  22. n20=}
  23. n21=rtoken {
  24. n22=  if ($1 == $null) || ($2 == $null) || ($3 == $null) { return Error }
  25. n23=  if ($1 > $token(0,$2,*3)) { return }
  26. n24=  set %counter 1
  27. n25=  set %return *3
  28. n26=  :begin
  29. n27=  if (%counter < $1) {
  30. n28=    %token = $token(1,$2,%return) | %len = $len(%token) + 2
  31. n29=    %return = $mid(%len,$len(%return),%return)
  32. n30=    inc %counter
  33. n31=    goto begin
  34. n32=  }
  35. n33=  return %return
  36. n34=  unset %return %counter
  37. n35=}
  38. n36=/joinchannels {
  39. n37=  set %counter 1
  40. n38=  if (%set.rejoin != ON) && (%joinfile == join.txt) { halt }
  41. n39=  :begin
  42. n40=  set %channel $read -l $+ %counter [ $mircdir [ $+ [ %joinfile ] ] ]
  43. n41=  if (%channel != $null) {
  44. n42=    join %channel
  45. n43=    inc %counter
  46. n44=    goto begin
  47. n45=  }
  48. n46=  unset %counter %channel
  49. n47=  set %joinfile join.txt
  50. n48=}
  51. n49=perc { 
  52. n50=  if $2 == $null { return Syntax error }
  53. n51=  if ($3 == bar) { 
  54. n52=    if ($4 != $null) { 
  55. n53=      set %scale $4
  56. n54=    } 
  57. n55=    else { set %scale 20 }
  58. n56=  }
  59. n57=  %x = $1 * 100 | %x1 = $1 * %scale
  60. n58=  if ($2 != 1) { %rest = $2 / 2 } | else { %rest = 1 }
  61. n59=  %y = %x / $2 | %y1 = %x1 / $2
  62. n60=  %z = %x % $2 | %z1 = %x1 % $2
  63. n61=  if (%z > %rest) { inc %y }
  64. n62=  if (%z1 > %rest) { inc %y1 }
  65. n63=  %y2 = %scale - %y1
  66. n64=  if (%y1 > 0) && (%y2 > 0) { set %bar $chr(91) $+ $str(%y1,$chr(35)) $+ $str(%y2,=) $+ $chr(93) }
  67. n65=  elseif (%y1 > 0) && (%y2 == 0) { set %bar $chr(91) $+ $str(%y1,$chr(35)) $+ $chr(93) }
  68. n66=  else { set %bar $chr(91) $+ $str(%y2,=) $+ $chr(93) }
  69. n67=  if ($3 == bar) { set %return %bar %y $+ % } | else { set %return %y $+ % }
  70. n68=  unset %bar %x %x1 %rest %y %y1 %z %z1 %y2
  71. n69=  return %return
  72. n70=}
  73. n71=chanstats {
  74. n72=  msg # Ops on # : $opnick(0,#) $perc($opnick(0,#),$nick(0,#),bar)
  75. n73=  msg # NonOps on # : $nopnick(0,#) $perc($nopnick(0,#),$nick(0,#),bar)
  76. n74=}
  77. n75=/cban {
  78. n76=  if ($me isop #) {
  79. n77=    aecho Clearing ban list on # | /unset %unban %bans | /.enable #cban | mode # b
  80. n78=  }
  81. n79=  else { aecho You are not channel operator or are not on a channel currently }
  82. n80=}
  83. n81=/quit {
  84. n82=  set %joinfile autojoin.txt 
  85. n83=  write -c $mircdir $+ join.txt
  86. n84=  quit *1
  87. n85=}
  88. n86=switch {
  89. n87=  set %total $len(*1)
  90. n88=  set %counter 2
  91. n89=  set %line $mid(1,1,*1)
  92. n90=  :begin
  93. n91=  if (%counter <= %total) {
  94. n92=    set %char $mid(%counter,1,*1)
  95. n93=    set %line %line $+ $k(3,7) $+ %char $+ $k(1,7)
  96. n94=    inc %counter
  97. n95=    set %char $mid(%counter,1,*1)
  98. n96=    if (%char != $null) { 
  99. n97=      if %char != $chr(32) { set %line %line $+ %char }
  100. n98=      else { set %line %line $+ á }
  101. n99=    }
  102. n100=    inc %counter
  103. n101=    goto begin
  104. n102=  }
  105. n103=  return %line
  106. n104=}
  107. n105=ctcp {
  108. n106=  if (# isin $1) { set %ctcp.channel $ctime }
  109. n107=  else { set %ctcp. $+ $1 $ctime }
  110. n108=  if ($2 == ping) { 
  111. n109=    raw -q PRIVMSG $$1 : $+ $$2 $ctime $+ 
  112. n110=    echo 4 $active $chr(91) $+ $1 PING $+ $chr(93)
  113. n111=    goto end
  114. n112=  }
  115. n113=  if ($3 == $null || $1 == $3) {
  116. n114=    echo 4 $active $chr(91) $+ $1 $upper($2) $+ $chr(93)
  117. n115=    raw -q PRIVMSG $$1 : $+ $$2 $+ 
  118. n116=  }
  119. n117=  else { 
  120. n118=    echo 4 $active $chr(91) $+ $1 $upper($2) *3 $+ $chr(93)
  121. n119=    raw -q PRIVMSG $$1 : $+ $$2 *3 $+ 
  122. n120=  }
  123. n121=  :end
  124. n122=}
  125. n123=ping {
  126. n124=  if ($1 == $null) {
  127. n125=    echo 4 $active $chr(91) $+ # PING $+ $chr(93)
  128. n126=    raw -q PRIVMSG # : $+ PING $ctime $+    
  129. n127=  }
  130. n128=  else {
  131. n129=    echo 4 $active $chr(91) $+ $1 PING $+ $chr(93)    
  132. n130=    raw -q PRIVMSG $$1 : $+ PING $ctime $+ 
  133. n131=  }
  134. n132=}
  135. n133=ver {
  136. n134=  if ($1 == $null) {
  137. n135=    set %ctcp.channel $ctime    
  138. n136=    echo 4 $active $chr(91) $+ # VERSION $+ $chr(93)
  139. n137=    raw -q PRIVMSG # :VERSION   
  140. n138=  }
  141. n139=  else {
  142. n140=    set %ctcp. $+ $1 $ctime    
  143. n141=    echo 4 $active $chr(91) $+ $1 VERSION $+ $chr(93)    
  144. n142=    raw -q PRIVMSG $$1 :VERSION
  145. n143=  }
  146. n144=}
  147. n145=cycle set %tempkey $chan(#).key | raw -q PART # | raw -q JOIN # %tempkey | unset %tempkey
  148. n146=wall .onotice \\' [Ops on # $+ ] *1 | echo 4 # - WallOp - \\' [Ops on # $+ ] *1
  149. n147=ome .onotice \\' [Ops on # $+ ] * $me *1 | echo 4 # - WallOp - \\' [Ops on # $+ ]  * $me *1
  150. n148=ww whowas $$1
  151. n149=pingout /timer100 0 30 /raw -q pong $server $server
  152. n150=clones {
  153. n151=  echo 4 # ½ Li0n ╗ Starting Clone Scan...
  154. n152=  set %chanclones 0
  155. n153=  set %counter 1
  156. n154=  set %total $nick(0,#)
  157. n155=  :init
  158. n156=  if (%counter <= %total) {
  159. n157=    set %site $remove($address($nick(%counter,#),2),*!*@)
  160. n158=    set %clone $readini $mircdir $+ scan.ini x %site
  161. n159=    if ((%clone != $null) && (%site !isin %s)) { writeini $mircdir $+ scan.ini x %site %clone $nick(%counter,#) | %s = [ %s ] %site }
  162. n160=    elseif (%clone != $null) { writeini $mircdir $+ scan.ini x %site %clone $nick(%counter,#) }
  163. n161=    else { writeini $mircdir $+ scan.ini x %site $nick(%counter,#) }
  164. n162=    inc %counter
  165. n163=    goto init
  166. n164=  }
  167. n165=  set %counter 1
  168. n166=  set %total $token(0,32,%s)
  169. n167=  set %chanclones 0
  170. n168=  :display
  171. n169=  if (%counter <= %total) {  
  172. n170=    set %clones $readini $mircdir $+ scan.ini x $token(%counter,32,%s) 
  173. n171=    inc %chanclones $token(0,32,%clones)
  174. n172=    echo 4 # ½ Li0n ╗ $token(0,32,%clones) clones from $token(%counter,32,%s) : %clones
  175. n173=    inc %counter
  176. n174=    goto display
  177. n175=  }
  178. n176=  unset %clones 
  179. n177=  if (%chanclones > 0) { echo 4 # ½ ^P-A-Q-U-I^ ╗ Total Clones on # : %chanclones }
  180. n178=  else { echo 4 # ½ ^P-A-Q-U-I^ ╗ No clones detected }
  181. n179=  :unset
  182. n180=  unset %clone %counter %chanclones %site %total %s
  183. n181=  remini $mircdir $+ scan.ini x
  184. n182=}
  185. n183=add {
  186. n184=  if ($token(0,32,*1) < 3) { aecho Syntax : /add #channel address options(o/f/n/b) [note] | halt }
  187. n185=  if ($3 != o) && ($3 != f) && ($3 != n) && ($3 != b) { aecho Syntax : /add #channel address options(o/f/n/b) [note] | halt }
  188. n186=  writeini $mircdir $+ userinfo.ini $1 Unknown $2 $3 $fulldate *4
  189. n187=  if ($3 == o) || ($3 == f) { auser 20 $1 }
  190. n188=  else { auser 10 $1 }
  191. n189=}
  192. n190=mailoptions {
  193. n191=  set %autoget $?="Autoget mail on connect? (Y/N)"
  194. n192=  if %autoget == $null { set %autoget Y }
  195. n193=  set %forgetpass $?="Forget password? (Y/N)"
  196. n194=  if (%forgetpass == $null) { set %forgetpass Y }
  197. n195=  if (%forgetpass == Y) { unset %pop.pass }
  198. n196=  echo 4 $active Options are set :  Autoget mail on connect : %autoget and Forget Password : %forgetpass
  199. n197=}
  200. n198=mailcheck {
  201. n199=  if (%pop.host == $null) || ($longip(%pop.host) == $null) { 
  202. n200=    set %pop.host $$?="What host to use (ip-NUMBER)"
  203. n201=    if ($longip(%pop.host) == $null) { aecho Please use the numerical ip. Look in your status window for this number | /dns %pop.host | halt } 
  204. n202=  }
  205. n203=  if (%pop.user == $null) { set %pop.user $$?="Username?" }
  206. n204=  if (%pop.pass == $null) { set %pop.pass $$?="Password?" }
  207. n205=  .creq auto
  208. n206=  .enable #mail
  209. n207=  set %mail.n $me
  210. n208=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(%pop.host) 110 $+ $chr(1)
  211. n209=}
  212. n210=seemail {
  213. n211=  if (%mail.win == $null) { echo 4 $active Not connected to mail server | halt }
  214. n212=  if ($1 == $null) { echo 4 %mail.win *** Syntax : /seemail <message-number $chr(124) all> }
  215. n213=  elseif ($1 == all) { set %mail.counter 1 | getmail | .timer653 0 5 getmail }
  216. n214=  else { msg = $+ %mail.n RETR $1 }
  217. n215=}
  218. n216=getmail { 
  219. n217=  if (%mail.counter <= %mail.messages) { msg = $+ %mail.n RETR %mail.counter | inc %mail.counter }
  220. n218=  else { .timer653 off | unset %mail.counter }
  221. n219=}
  222. n220=quitmail { msg = $+ %mail.n quit }
  223. n221=/joinchannels {
  224. n222=  set %counter 1
  225. n223=  :begin
  226. n224=  set %channel $read -l $+ %counter $mircdir $+ channels.rl
  227. n225=  if (%channel != $null) {
  228. n226=    join %channel
  229. n227=    inc %counter
  230. n228=    goto begin
  231. n229=  }
  232. n230=  unset %counter %channel
  233. n231=}
  234. n232=/msjit {
  235. n233=  if ($1 == $null) { aecho Syntax : /msjit <mask> <number of days> [channel] <reason> | halt }
  236. n234=  if ($2 !isnum) { aecho Syntax : /msjit <mask> <number of days> [channel] <reason> | halt }
  237. n235=  if (@ isin $1) { set %smask $1 | set %snick Unknown }
  238. n236=  else { set %smask $address($1,2) | set %snick $1 }
  239. n237=  if ($chr($asc(#)) isin $3 ) { set %chan $3 | set %sreason *4 }
  240. n238=  else { set %chan # | set %sreason *3 }
  241. n239=  set %days $2
  242. n240=  sjit %chan
  243. n241=}
  244. n242=/rmsjit {
  245. n243=  if ($1 == $null) { aecho Syntax : /msjit <mask> [channel] | halt }
  246. n244=  if ($2 == $null) { set %chan # }
  247. n245=  else { set %chan $2 } 
  248. n246=  if (@ isin $1) {
  249. n247=    set %entry $1
  250. n248=    .ruser 10 %entry
  251. n249=    remini $mircdir $+ userinfo.txt %chan %entry
  252. n250=    aecho Entry %entry removed from Sjit list on %chan
  253. n251=    mode %chan -b %entry
  254. n252=  }
  255. n253=  else {
  256. n254=    set %entry $maddress($address($1,0))
  257. n255=    .ruser 10 %entry
  258. n256=    remini $mircdir $+ userinfo.txt %chan %entry
  259. n257=    aecho Entry %entry removed from Sjit list on %chan
  260. n258=    mode %chan -b %entry
  261. n259=  }
  262. n260=  unset %entry %chan
  263. n261=}
  264. n262=/filterkick {
  265. n263=  if ($gettok(*1,0,32) < 1) { aecho Syntax : /filterkick <banmask> [#channel] [kick message] }
  266. n264=  set %banmask $1
  267. n265=  if ($2 == $null) { 
  268. n266=    if ($me !isop #) { aecho Error : not on a channel, or not chanop | aecho Syntax : /filterkick <banmask> [#channel] [kick message] }
  269. n267=    else { set %channel # }
  270. n268=  }
  271. n269=  else { 
  272. n270=    if ($me !isop $2) { aecho Error : not on a channel, or not chanop | aecho Syntax : /filterkick <banmask> [#channel] [kick message] }
  273. n271=    else { set %channel $2 }
  274. n272=  }
  275. n273=  if ($3 == $null) { set %kickmessage ½ Li0n ╗ Filter Kick of %banmask }
  276. n274=  else { set %kickmessage *3 }
  277. n275=  set %total $ial(%banmask,0)
  278. n276=  %counter = 1
  279. n277=  :check
  280. n278=  if (%counter <= %total) {
  281. n279=    set %kicknick $ial(%banmask,%counter).nick
  282. n280=    if (%kicknick ison %channel) && ($level($ial(%banmask,%counter)) < 20) {
  283. n281=      kick %channel %kicknick %kickmessage
  284. n282=    }
  285. n283=    inc %counter
  286. n284=    goto check
  287. n285=  }
  288. n286=  :end
  289. n287=  unset %channel %total %counter %banmask %kickmessage %kicknick
  290. n288=}
  291. n289=/sjit {
  292. n290=  %timeout = %days * 86400
  293. n291=  %timeout = %timeout + $ctime
  294. n292=  writeini $mircdir $+ userinfo.ini $1 %smask %snick s %timeout $token($token(2,47,$date),47,%month) $token(1,47,$date) $+ : %sreason
  295. n293=  write $mircdir $+ ban.log %timeout $1 %smask
  296. n294=  .auser 10 %smask
  297. n295=  aecho Sjit list entry added for: %smask on $1 for %days days. Reason: %sreason
  298. n296=  mode $1 +b %smask
  299. n297=  filterkick %smask $1 $token($token(2,47,$date),47,%month) $token(1,47,$date) $+ : %sreason
  300. n298=  unset %smask %sreason %timeout %days %snick
  301. n299=}
  302. n300=/expire {
  303. n301=  set %counter 1
  304. n302=  :begin
  305. n303=  set %line $read -l $+ %counter $mircdir $+ bans.log
  306. n304=  if (%line != $null) {
  307. n305=    set %exptime $gettok(%line,1,32)
  308. n306=    if ($ctime > %exptime) { 
  309. n307=      write -ds $+ $gettok(%line,1,32) $mircdir $+ bans.ini
  310. n308=      remini $mircdir $+ userinfo.ini $gettok(%line,2,32) $gettok(%line,3,32)
  311. n309=      .ruser 10 $gettok(%line,3,32)
  312. n310=      goto begin
  313. n311=    }
  314. n312=    inc %counter
  315. n313=    goto begin
  316. n314=  }
  317. n315=  unset %line %counter
  318. n316=}
  319. n317=/aecho echo 4 -a ½ Li0n ╗ *1
  320. n318=atime {
  321. n319=  set %hours $token(1,58,$time)
  322. n320=  if (%hours > 12) { dec %hours 12 | /set %sub pm } 
  323. n321=  elseif (%hours == 12) { set %sub pm }
  324. n322=  elseif (%hours == 0) { set %hours 12 | /set %sub am }
  325. n323=  else { set %sub am }
  326. n324=  return %hours $+ : $+ $token(2,58,$time) $+ %sub
  327. n325=}
  328. n326=/msgreview {
  329. n327=  echo 4 -s -[ ^P-A-Q-U-I^ ]- Message review
  330. n328=  if (%msg5 != $null) { echo 4 -s %msg5 }
  331. n329=  if (%msg4 != $null) { echo 4 -s %msg4 }
  332. n330=  if (%msg3 != $null) { echo 4 -s %msg3 }
  333. n331=  if (%msg2 != $null) { echo 4 -s %msg2 }
  334. n332=  if (%msg1 != $null) { echo 4 -s %msg1 }
  335. n333=  else { echo 4 -s -[ ^P-A-Q-U-I^ ]-  No Messages }
  336. n334=}
  337. n335=/rctcp {
  338. n336=  if ($3 == $null) {
  339. n337=    raw -q PRIVMSG $$1 : $+ $$2 $+ 
  340. n338=  }
  341. n339=  else { raw -q PRIVMSG $$1 : $+ $$2 *3 $+  }
  342. n340=}
  343. n341=/gone {
  344. n342=  ame is away - $? - Messages are logged
  345. n343=  away since 3-7 $+ $atime $+ - -  $+ $$!
  346. n344=  %msg = 0
  347. n345=  write -c $mircdir $+ away.log
  348. n346=  .enable #AwayMsgLog
  349. n347=}
  350. n348=back {
  351. n349=  ame is back -- I know.. who cares.
  352. n350=  away
  353. n351=  .disable #AwayMsgLog
  354. n352=  if (%msg == 0) { set %msg no }
  355. n353=  aecho You have %msg message(s) waiting
  356. n354=  unset %msg
  357. n355=}
  358. n356=xlist {
  359. n357=  set %xdcc.win -[á^P-A-Q-U-I^ v2.0á]-áXDCCáWindow
  360. n358=  query %xdcc.win   
  361. n359=  set %total $readini $mircdir $+ xdcc.ini main total
  362. n360=  echo 4 %xdcc.win á
  363. n361=  if (%total == $null) { echo 4 %xdcc.win No packets offered | halt }
  364. n362=  set %counter 1
  365. n363=  :begin
  366. n364=  if (%counter <= %total) {
  367. n365=    set %packet $readini $mircdir $+ xdcc.ini main %counter
  368. n366=    echo 4 %xdcc.win  $+ $chr(35) $+ %counter $+  [ $readini $mircdir $+ xdcc.ini %packet dl ] $+ x $chr(91) $+  $+ [ $readini $mircdir $+ xdcc.ini %packet size ] $+ B $+  $+ $chr(93) $readini $mircdir $+ xdcc.ini %packet name
  369. n367=    inc %counter
  370. n368=    goto begin
  371. n369=  }
  372. n370=  unset %counter %xdcc.win %total %packet
  373. n371=}
  374. n372=xadd {
  375. n373=  set %total $readini $mircdir $+ xdcc.ini main total
  376. n374=  set %packet $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  377. n375=  set %name $$?="Give a description for the packet"
  378. n376=  set %path $?="Give a full pathname for the packet"
  379. n377=  :begin
  380. n378=  if ($exists(%path) == $false) {
  381. n379=    set %path $?="Give a full pathname for the packet"
  382. n380=    goto begin
  383. n381=  }
  384. n382=  set %size $lof(%path)
  385. n383=  if (%size < 1000) { set %size [ %size ] $+ B }
  386. n384=  elseif (%size > 1000000) {
  387. n385=    %m = %size / 1000000 | %k = %size % 1000000
  388. n386=    %k = %k / 100000
  389. n387=    set %size [ %m ] $+ . $+ [ %k ] $+ M
  390. n388=  }
  391. n389=  else { %k = %size / 1000 | set %size [ %k ] $+ k }
  392. n390=  unset %k %m
  393. n391=  writeini $mircdir $+ xdcc.ini %packet path %path
  394. n392=  writeini $mircdir $+ xdcc.ini %packet name %name
  395. n393=  writeini $mircdir $+ xdcc.ini %packet size %size
  396. n394=  writeini $mircdir $+ xdcc.ini %packet dl 0
  397. n395=  inc %total
  398. n396=  writeini $mircdir $+ xdcc.ini main total %total
  399. n397=  writeini $mircdir $+ xdcc.ini main %total %packet
  400. n398=  aecho Packet  $+ $chr(35) $+ %total $+  ' $+ %name $+ ' has been added 
  401. n399=  unset %packet %path %name %size %total
  402. n400=}
  403. n401=/xdel {
  404. n402=  if ($1 == $null) { set %packet $$?="What packet number? (/xlist for list)" }
  405. n403=  else { set %packet $1 }
  406. n404=  set %total $readini $mircdir $+ xdcc.ini main total
  407. n405=  if (%packet !isnum) || (%packet > %total) { aecho XDCC -- incorrect packet number. Type /xlist for a list | halt }
  408. n406=  remini $mircdir $+ xdcc.ini [ $readini $mircdir $+ xdcc.ini main %packet ]
  409. n407=  set %counter %packet
  410. n408=  :begin
  411. n409=  if (%counter < %total) {
  412. n410=    %getpack = %counter + 1
  413. n411=    set %packname $readini $mircdir $+ xdcc.ini main %getpack
  414. n412=    writeini $mircdir $+ xdcc.ini main %counter %packname
  415. n413=    inc %counter
  416. n414=    goto begin
  417. n415=  }
  418. n416=  remini $mircdir $+ xdcc.ini main %counter
  419. n417=  dec %total
  420. n418=  writeini $mircdir $+ xdcc.ini main total %total
  421. n419=  unset %packet %counter %packname %getpack
  422. n420=}
  423. n421=/xoffer {
  424. n422=  set %total $readini $mircdir $+ xdcc.ini main total
  425. n423=  if (%total == $null) { aecho No packets offered | halt }
  426. n424=  set %counter 1
  427. n425=  msg # -[ Li0n ]- XDCC OFFER ** %total pack(s) offered **
  428. n426=  msg # -[ Li0n ]- Type /ctcp $me XDCC SEND #n to receive
  429. n427=  :begin
  430. n428=  if (%counter <= %total) {
  431. n429=    set %packet $readini $mircdir $+ xdcc.ini main %counter
  432. n430=    msg #  $+ $chr(35) $+ %counter $+  áá [ $readini $mircdir $+ xdcc.ini %packet dl ] $+ x $chr(91) $+  $+ [ $readini $mircdir $+ xdcc.ini %packet size ] $+ B $+  $+ $chr(93) $readini $mircdir $+ xdcc.ini %packet name
  433. n431=    inc %counter
  434. n432=    goto begin
  435. n433=  }
  436. n434=  if (%xdccmessage != $null) { msg #  -[ Li0n ]- %xdccmessage }
  437. n435=  unset %counter %total %packet
  438. n436=}
  439. n437=/chanstat {
  440. n438=  if (# == $null) { aecho Current window is not a channel | halt }
  441. n439=  set %status -[á^P-A-Q-U-I^á]-á $+ # $+ ástatus
  442. n440=  query %status
  443. n441=  clear %status
  444. n442=  if (%clone.all == on) { echo 4 %status * Global Clone Protection : on }
  445. n443=  elseif (%clone. [ $+ [ # ] ] == on) { echo 4 %status * Clone Protection for # : on }
  446. n444=  else { echo 4 %status * Clone Protection for # : off }
  447. n445=  if (%serverop.all == on) { echo 4 %status * Global Serverop Protection : on }
  448. n446=  elseif (%serverop. [ $+ [ # ] ] == on) { echo 4 %status * Serverop Protection for # : on }
  449. n447=  else { echo 4 %status * Serverop Protection for # : off }
  450. n448=  if (%nick.all == on) { echo 4 %status * Global Nick Protection : on }
  451. n449=  elseif (%nick. [ $+ [ # ] ] == on) { echo 4 %status * Nick Protection for # : on }
  452. n450=  else { echo 4 %status * Nick Protection for # : off }
  453. n451=  if (%deop.all == on) { echo 4 %status * Global Reopping of Ops : on }
  454. n452=  elseif (%deop. [ $+ [ # ] ] == on) { echo 4 %status * Reopping of Ops for # : on }
  455. n453=  else { echo 4 %status * Reopping of Ops for # : off }
  456. n454=  if (%restrict.all == on) { echo 4 %status * Global Restriction of Ops : on }
  457. n455=  elseif (%restrict. [ $+ [ # ] ] == on) { echo 4 %status * Restriction of Ops for # : on }
  458. n456=  else { echo 4 %status * Restriction of Ops for # : off }
  459. n457=  if (%repeat.all == on) { echo 4 %status * Global Repeat Kick : on }
  460. n458=  elseif (%repeat. [ $+ [ # ] ] == on) { echo 4 %status * Repeat Kick for # : on }
  461. n459=  else { echo 4 %status * Repeat Kick for # : off }
  462. n460=  if (%enfmode. [ $+ [ # ] ] != $null) { echo 4 %status * Enforcing modes on # : %enfmode. [ $+ [ # ] ] }
  463. n461=  else { echo 4 %status * Not enforcing modes on # }
  464. n462=  unset %status
  465. n463=}
  466. n464=status {
  467. n465=  set %status -[á^P-A-Q-U-I^á]-ástatus
  468. n466=  query %status
  469. n467=  clear %status
  470. n468=  if (%set.whois == on) { echo 4 %status * Show whois in active window : on }
  471. n469=  else { echo 4 %status * Show whois in active window : off }
  472. n470=  if (%set.msg == on) { echo 4 %status * Show new message in active window : on }
  473. n471=  else { echo 4 %status * Show new message in active window : off }
  474. n472=  if (%set.rejoin == on) { echo 4 %status * Rejoin channels after a hard quit : on }
  475. n473=  else { echo 4 %status * Rejoin channels after a hard quit : off }
  476. n474=  echo 4 %status * Default enforcing mode : %set.defmode
  477. n475=  echo 4 %status * AutoAway is %set.aaway $+ , and AutoBack is %set.aback
  478. n476=  echo 4 %status * AutoAway is triggered after %set.aaway.idle secs of idleness, and is checked every %set.aaway.check secs
  479. n477=  echo 4 %status * Person is kicked if he repeats within %set.rp secs
  480. n478=  echo 4 %status * Person is kicked for nickflooding when changing nick %set.nick times within %set.ntimer secs
  481. n479=  echo 4 %status * Clone protection is triggered after %set.clone clients from the same address have joined the channel
  482. n480=  if (%set.ck == ON) { echo 4 %status * All clones are kicked when detected }
  483. n481=  else { echo 4 %status * You are alerted of clones and can use F4 to kick }
  484. n482=  if (%xdcc == on) { echo 4 %status * XDCC server is : on }
  485. n483=  else { echo 4 %status * XDCC server is : off }
  486. n484=  if (%xdccmessage != $null) { echo 4 %status * XDCC messageline is : %xdccmessage }
  487. n485=  else { echo 4 %status * No XDCC messageline set }
  488. n486=  unset %status
  489. n487=}  
  490. n488=/autoaway {
  491. n489=  if (%set.aaway == ON) && ($away != $true) {
  492. n490=    if ($idle > %set.aaway.idle) {
  493. n491=      away Automatically set away at $atime -- Messages are being logged
  494. n492=      ame has automatically been set away -- Messages are being logged
  495. n493=      set %start $ctime
  496. n494=    }
  497. n495=  }  
  498. n496=  elseif (%set.aback == ON) && ($away == $true) { 
  499. n497=    if ($idle < %set.aaway.idle) {
  500. n498=      away
  501. n499=      set %awaytime $ctime - %start
  502. n500=      ame has automatically been set back -- away for $duration(%awaytime)
  503. n501=      unset %start %awaytime
  504. n502=    }
  505. n503=  }
  506. n504=}
  507. n505=/li0n {
  508. n506=  echo 4 -s *****************************************************************************************************
  509. n507=  echo 4 -s Welcome to -^P-A-Q-U-I^ v.2.0 for mIRC 4.7-  You are connected to $server
  510. n508=  echo 4 -s *****************************************************************************************************
  511. n509=  echo 4 -s -[ ^P-A-Q-U-I^ v2.0 ]- Released 9 December 1996
  512. n510=  echo 4 -s -[ ^P-A-Q-U-I^ v2.0 ]- by ^P-A-Q-U-I^
  513. n511=  echo 4 -s *****************************************************************************************************
  514. n512=}
  515. n513=/lhelp {
  516. n514=  set %help -[á^P-A-Q-U-I^ v2.0á]-áHelpáWindow
  517. n515=  if ($1 == $null) { 
  518. n516=    query %help
  519. n517=    echo 4 %help á
  520. n518=    echo 4 %help -[ ^P-A-Q-U-I^ v2.0 ]- Main Help Menu
  521. n519=    echo 4 %help á
  522. n520=    echo 4 %help Topic -- Description
  523. n521=    echo 4 %help á
  524. n522=    echo 4 %help 1. -- Channel/Status Popup
  525. n523=    echo 4 %help 2. -- Nickname Popup
  526. n524=    echo 4 %help 3. -- Aliases
  527. n525=    echo 4 %help 4. -- Function keys
  528. n526=    echo 4 %help 5. -- Extra Identifiers
  529. n527=    echo 4 %help 6. -- Miscellaneous
  530. n528=    echo 4 %help 7. -- Trouble shooting
  531. n529=    echo 4 %help á
  532. n530=    echo 4 %help Use /Lhelp number to get further help
  533. n531=  }
  534. n532=  elseif ($1 isnum) { 
  535. n533=    if ($1 > 7) { aecho No help availably on that | halt }
  536. n534=    else { play -ct $+ $1 $me $mircdir $+ li0n.snt 200 }
  537. n535=  }
  538. n536=  else { 
  539. n537=    %exist = $readini $mircdir $+ li0n.snt main $1
  540. n538=    if (%exist != $null) { play -ct $+ $1 $me $mircdir $+ li0n.snt 200 }
  541. n539=    else { aecho No help available on that }
  542. n540=  }
  543. n541=}
  544. n542=/thelp /titlebar $tbar(main,main.tb) | /.timer985 0 7 /titlebar $!tbar(main)
  545. n543=stat {
  546. n544=  write -c $mircdir $+ chanstat.tb
  547. n545=  set %counter 1
  548. n546=  set %total $chan(0)
  549. n547=  :begin
  550. n548=  if (%counter <= %total) {
  551. n549=    write $mircdir $+ chanstat.tb Stats for $chan(%counter) : Total $chr(36) $+ nick(0, $+ $chan(%counter) $+ ) Ops $chr(36) $+ opnick(0, $+ $chan(%counter) $+ )
  552. n550=    inc %counter
  553. n551=    goto begin
  554. n552=  }
  555. n553=  write $mircdir $+ chanstat.tb * Press sF12 to stop the Channel Statistic messages
  556. n554=  titlebar $tbar(chanstat,chanstat.tb) | /.timer985 0 7 /titlebar $!tbar(chanstat)
  557. n555=}
  558. n556=tbar {
  559. n557=  if ($1 == $null) { return Error }
  560. n558=  if ($2 == $null) { 
  561. n559=    if (%tblines. [ $+ [ $1 ] ] == $null) { return Error.. incorrect name }
  562. n560=  }
  563. n561=  else { 
  564. n562=    if ($exists($2) == $true) { set %tbfile. $+ $1 $2 | set %tblines. $+ $1 $lines($2) | set %tbcline. $+ $1 0 }
  565. n563=    else { return Incorrect filename }
  566. n564=  }
  567. n565=  inc %tbcline. $+ $1
  568. n566=  if (%tbcline. [ $+ [ $1 ] ] > %tblines. [ $+ [ $1 ] ]) { set %tbcline. $+ $1 1 }
  569. n567=  return $read -l $+ %tbcline. [ $+ [ $1 ] ] %tbfile. [ $+ [ $1 ] ]
  570. n568=}
  571. n569=/f2 /lhelp
  572. n570=/f3 /mailcheck
  573. n571=/f4 if (%clonesite != $null) { /filterkick %clonesite %clonechan | unset %clonesite %clonechan } | else { aecho No clones to kick }
  574. n572=/f5 /chanstat
  575. n573=/f6 /stat
  576. n574=/f8 /msgreview
  577. n575=/f9 /ignore -pu60 * | /set %MSGFLOOD ON
  578. n576=/f11 /song
  579. n577=/f12 /thelp
  580. n578=/sf12 /.timer985 off | /titlebar %default.tb
  581.